(pushnew): Add missing `,'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b8875f7ecba2bb3459cd965d3a4c8270804675ca..b600b1290489e8f12a33d914e45e42ef63df3a0c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-09-11  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * emacs-lisp/cl.el (pushnew): Add missing `,'.
+
 2006-09-11  David Kastrup  <dak@gnu.org>
 
        * help.el (string-key-binding, describe-key-briefly)

diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el
index 9db3fc027d6e9211cdad7958fea048af82d71af6..53bec05ddc373a9e8f4cb39aa3dcc287481daa59 100644 (file)
--- a/lisp/emacs-lisp/cl.el
+++ b/lisp/emacs-lisp/cl.el
@@ -160,7 +160,7 @@ an element already on the list.
   (if (symbolp place)
       (if (null keys)
          `(let ((pushnew-internal ,place))
-            (add-to-list 'pushnew-internal x nil 'eql)
+            (add-to-list 'pushnew-internal ,x nil 'eql)
             (setq ,place pushnew-internal))
        (list 'setq place (list* 'adjoin x place keys)))
     (list* 'callf2 'adjoin x place keys)))